home *** CD-ROM | disk | FTP | other *** search
/ Asstroids / Asstroids - VCA Interactive.bin / pc / safe_sex.inf < prev    next >
Text File  |  1996-08-22  |  4KB  |  139 lines
  1. DefineVariables
  2. ;;******************************************************
  3. ;; Install of Asstroids software for windows
  4. ;;******************************************************
  5.  
  6.   
  7.   Text    [CompanyName] := VCA Interactive
  8.   Text    [ProductName] := Asstroids
  9.   Text    [ProductName1] := Asstroids for windows 3.1
  10.   Text    [ProductName2] := Asstroids for windows 95 or NT
  11.   Text    [ProductName3] := Install QuickTime 2.1.1  
  12.   Text    [ProductName4] := Install 32bit QuickTime 2.1.1
  13.   Text      [TopLine]    := " INSTALLING [ProductName]  "
  14.  
  15.   Text      [ExpressSetupDescription]    := Install [ProductName]
  16.   
  17.   Text    [LogoBitMap]  := VCA.BMP    
  18.   Text    [ReadFile]    := VCAREAD.WRI             
  19.   Text    [ReadCmdLine] := write.exe
  20.   Text    [ReadPath]
  21.   Text    [IconFile]    := VCA.ICO
  22.   Text    [IconPath]     
  23.   Text    [ProgFile1]    := asst16.EXE
  24.   Text    [ProgPath1]
  25.   Text    [ProgFile2]   := asst32.EXE
  26.   Text    [ProgPath2]
  27.   Text    [ProgFile3]   := QTINSTAL.EXE
  28.   Text    [ProgPath3]
  29.   Text    [ProgFile4]   := QT32INST.EXE
  30.   Text    [ProgPath4]
  31.  
  32. EndDefineVariables
  33. Procedure DDENonFatalErrorTrap
  34.  
  35.  
  36. ;; Purpose of DDENonFatalErrorTrap:
  37. ;; If a procedure with this name is present in the script and a non-fatal
  38. ;; Program Manager DDE error occurs, then this procedure will be executed.
  39. ;; 
  40. ;; Possible Text Error Codes Are:
  41. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  42. ;;      ddeInitiate failed
  43. ;;      pmAddItem failed
  44. ;;      pmClose failed
  45. ;;      pmCreateGroup failed
  46. ;;
  47. ;; To trap a DDENonFatalError and respond to it, use the following code
  48. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  49. ;; If [Number1] > 0 
  50. ;;    Dialog
  51. ;;      NonFatal error in AddItem occurred
  52. ;;      Error Text : DDENonFatalError
  53. ;;    EndDialog
  54. EndProcedure
  55.  
  56.  
  57.  
  58. ;; Setup logo and screen
  59. SetDefaultBitmap off
  60. LoadBitMap 1 [LogoBitMap]
  61. ShowBitMap 1 @xy(420,320)
  62. SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  63. ShowWindow Maximized
  64.  
  65.  
  66. Dialog
  67.   
  68. Installation of "[ProductName]" is completely non-invasive. 
  69. A new icon and/or program group, "[CompanyName]", will be 
  70. created in your program manager.
  71.  
  72. Please press "OK" to proceed with "[ProductName]" installation.
  73.  
  74. EndDialog
  75.  
  76. Dialog WhiteOnBlue
  77.  
  78. **********************WARNING**********************
  79.  
  80. QuickTime ver. 1.0 and ver. 2.1.1 are incompatible.
  81. For your convenience you may install or un-install 
  82. QuickTime ver. 2.1.1 from the "QuickTime for Windows" Program Group.
  83.  
  84. Please press "OK" to proceed with "[ProductName]" installation.
  85.  
  86. EndDialog
  87.  
  88.  
  89. ;;**************************************************
  90. ;;Find the files for the program and icons
  91. ;;**************************************************
  92. [IconPath] := FullPathTo [IconFile] Origin=[InstallFromDrive]:\PC Quietly
  93. ;;[ProgPath]  := FullPathTo [ProgFile] Origin=[InstallFromDrive]:\PC Quietly
  94. [ReadPath]  := FullPathTo [ReadFile] Origin=[InstallFromDrive]:\PC Quietly
  95. [ProgPath]  := FullPathTo [ProgFile] Origin=[InstallFromDrive]:\PC Quietly
  96. [ProgPath1]  := FullPathTo [ProgFile1] Origin=[InstallFromDrive]:\PC Quietly
  97. [ProgPath2]  := FullPathTo [ProgFile2] Origin=[InstallFromDrive]:\PC Quietly
  98. [ProgPath3]  := FullPathTo [ProgFile3] Origin=[InstallFromDrive]:\PC Quietly
  99. [ProgPath4]  := FullPathTo [ProgFile4] Origin=[InstallFromDrive]:\PC Quietly
  100.  
  101.  
  102. ;;**************************************************
  103. ;; Create the windows program group.
  104. ;;**************************************************
  105. ProgramManagerDDe
  106.   CreateGroup([CompanyName])
  107.   ReplaceItem([CompanyName])
  108.   DeleteItem([ProductName])
  109.  AddItem([ProgPath],[ProductName],[IconPath])
  110.   DeleteItem([ProductName1])
  111.   AddItem([ProgPath1],[ProductName1],[IconPath])
  112.   DeleteItem([ProductName2])  
  113.   AddItem([ProgPath2],[ProductName2],[IconPath])
  114.   DeleteItem([ProductName3])  
  115.   AddItem([ProgPath3],[ProductName3])
  116.   DeleteItem([ProductName4])  
  117.   AddItem([ProgPath4],[ProductName4])
  118.   DeleteItem([ReadFile])  
  119.   AddItem([ReadPath],[ReadFile])
  120. EndProgramManagerDDE
  121.  
  122.  
  123.  
  124.  
  125. ;; Exit dialog box and messages
  126. Dialog
  127.   [ProductName] installation is complete.
  128.   Enjoy!
  129. EndDialog
  130.  
  131.  Dialog PressAKey WhiteOnBrown
  132.  
  133.     Thanks again and best wishes.  You'll find new
  134.     information in file VCAREAD.WRI
  135.  
  136.   EndDialog
  137.  
  138. EndScript
  139.